1 REM ""(null)
2 POKE808,234
3 FI$="JJ":AD=16384:GOSUB 50000
4 FI$="KK":AD=57344:GOSUB 50000
5 FI$="LL":AD=24576:GOSUB 50000
6 SYS 16384
90 POKE51,0:POKE52,64:CLR
91 PRINT"[147]"
98 REM ""(null)
99 REM ------------------------------
100 PRINT"HI, MY NAME IS SALLY"
101 LET B=0
102 PRINT"WHAT'S YOURS......STUD":INPUTB$
103 PRINT"WELL ";B$;",YOU KNOW WHAT I LIKE! "
104 INPUTA$
105 LETB=B+1
108 GOTO600:REM HELP CHECK COUNTER
110 IFA$="KISS"THENGOTO200
114 IFA$="PASH"THENGOTO200
116 IFA$="GET ON"THENGOTO200
118 IFA$="SUCK FACE"THENGOTO200
119 IFA$="SMOOCH"THENGOTO200
120 IFA$="SMOOTCH"THENGOTO200
121 IFA$="TOUCH"THENGOTO300
125 IFA$="FEEL"THENGOTO300
126 IFA$="FINGER"THENGOTO300
127 IFA$="RUB"THENGOTO300
128 IFA$="MASSAGE"THENGOTO300
129 IFA$="FONDLE"THENGOTO300
130 IFA$="PLAY"THENGOTO300
131 IFA$="FUN AND GAMES"THENGOTO300
132 IFA$="WHIPS AND CHAINS"THENGOTO780
135 IFA$="HEADJOB"THENGOTO400
136 IFA$="ORAL"THENGOTO400
137 IFA$="ORAL SEX"THENGOTO400
138 IFA$="SUCK"THENGOTO400
139 IFA$="LICK"THENGOTO400
140 IFA$="TONGUE"THENGOTO400
141 IFA$="HEAD"THENGOTO400
142 IFA$="FISH"THENGOTO400
145 IFA$="FUCK"THENGOTO500
146 IFA$="SEX"THENGOTO500
147 IFA$="BONK"THENGOTO500
148 IFA$="ROOT"THENGOTO500
149 IFA$="SCREW"THENGOTO500
150 IFA$="BANG"THENGOTO500
151 IFA$="INTERCOURSE"THENGOTO500
152 IFA$="MAKE LOVE"THENGOTO500
153 IFA$="MAKE OUT"THENGOTO500
154 IFA$="FORNICATE"THENGOTO500
155 IFA$="PUSSY"THENGOTO700
156 IFA$="CUNT"THENGOTO700
157 IFA$="VAGINA"THENGOTO700
158 IFA$="HOLE"THENGOTO700
159 IFA$="RING"THENGOTO700
160 IFA$="GASH"THENGOTO700
161 IFA$="FLAPS"THENGOTO700
162 IFA$="BOX"THENGOTO700
163 IFA$="CRACK"THENGOTO700
164 IFA$="BUSH"THENGOTO700
165 IFA$="POOF"THENGOTO710
166 IFA$="POOFTER"THENGOTO710
167 IFA$="FAGGOT"THENGOTO710
168 IFA$="FAG"THENGOTO710
169 IFA$="GAY"THENGOTO710
170 IFA$="HOMOSEXUAL"THENGOTO710
171 IFA$="LESBIAN"THENGOTO710
172 IFA$="ANAL"THENGOTO710
173 IFA$="DICK"THENGOTO720
174 IFA$="COCK"THENGOTO720
175 IFA$="PENIS"THENGOTO720
176 IFA$="KNOB"THENGOTO720
177 IFA$="TITS"THENGOTO730
178 IFA$="TIT"THENGOTO730
179 IFA$="BOOBS"THENGOTO730
180 IFA$="MELONS"THENGOTO730
181 IFA$="SHIT"THENGOTO740
182 IFA$="MONEY"THENGOTO745
183 IFA$="CASH"THENGOTO745
184 IFA$="PAYMENT"THENGOTO745
185 IFA$="WAGE"THENGOTO745
186 IFA$="INCOME"THENGOTO745
187 IFA$="MEN"THENGOTO750
188 IFA$="BOYS"THENGOTO750
189 IFA$="MAN"THENGOTO750
190 IFA$="GUYS"THENGOTO750
191 IFA$="ME"THENGOTO755
192 IFA$="IKON VISUAL"THENGOTO760
193 K$=LEFT$(A$,8)
194 IFK$="I WANT T"THENGOTO765
195 IFK$="I WANT Y"THENGOTO772
198 PRINT"THAT SOUNDS NICE"
199 GOTO 104
200 REM ------------------------------
201 LETB=50
202 PRINT"AHHH ! KISS ME GOOD AND PROPER !"
203 PRINT"C'MON BOY ! STICK THAT TONGUE IN !!"
204 FORC=1TO3000:NEXTC
205 PRINT"I'M REALLY GETTING HORNY.."
210 PRINT"I'M ALL WET BETWEEN THE LEGS !"
213 FORC=1TO3000:NEXTC
214 PRINT"NOW YOU'VE KISSED ME..... TAKE ME "
215 PRINT"ALL THE WAY ";B$;" !"
217 FORC=1TO3000:NEXTC
218 GOTO104
300 REM ------------------------------
302 IFB<50THENGOTO304
303 GOTO310
304 PRINT"HMMMMM, YOUR PRETTY INEXPERIENCED ARNT"
305 PRINT"YOU LITTLE BOY ?"
306 FORC=1TO3000:NEXTC
307 PRINT"I WOULD RATHER SOMETHING ELSE TO GET"
308 PRINT"ME WORKED UP."
309 FORC=1TO3000:NEXTC:GOTO104
310 PRINT"YOUR DICK IS HEAPS PUNY !!"
311 PRINT"BUT IT'LL DO SO FLOP IT OUT MORE..."
312 FORC=1TO3000:NEXTC
314 PRINT"RUBBING YOUR COCK IS FUCKING BORING ..."
315 FORC=1TO2000:NEXTC
316 PRINT"I WANT A MEAL, NOT A SNACK."
317 LETB=100
318 FORC=1TO2000:NEXTC
320 PRINT"I CAN'T BE BOTHERED WITH YOUR LITTLE "
321 PRINT"PET.HURRY UP AND SHOVE A FINGER OR TWO"
322 FORC=1TO3000:NEXTC
323 PRINT"UP MY HOLE ....."
324 FORC=1TO2000:NEXTC
325 PRINT"NOT TOO HARD "
326 FORC=1TO2000:NEXTC
327 PRINT"AHHHH THAT FEELS GOOD !"
328 FORC=1TO2000:NEXTC
329 PRINT"OUCH ! IT'S TOO FAR UP"
330 FORC=1TO2000:NEXTC
331 PRINT"THAT'S BETTER, NOW WRIGLE IT"
332 PRINT"AROUND "
333 FORC=1TO2000:NEXTC
334 PRINT"NOW GENTLY SLIDE IT UP AND DOWN."
335 FORC=1TO2000:NEXTC
336 PRINT"HEY ! YOU DID REAL WELL !! "
337 GOTO 104
400 REM ------------------------------
410 IFB<100THENGOTO412
411 GOTO450
412 PRINT"WELL, I ALWAYS LOVE GIVING HEAD, BUT"
413 PRINT"AT THE MOMENT I'M NOT IN THE MOOD.."
414 FORC=1TO3000:NEXTC
415 GOTO 104
450 LETB=150
451 PRINT"I'M SORRY BUT YOUR DICK IS TOO PUNY TO"
452 PRINT"SUCK SO I'LL TEACH YOU HOW TO GIVE HEAD"
453 FORC=1TO3000:NEXTC
454 PRINT"HAVE YOU EVER LICKED A GIRL BEFORE ?"
455 GETC$:IFC$=""THEN455
456 IFC$="Y"THENGOTO465
457 FORC=1TO3000:NEXTC
458 PRINT"I SEE YOU'RE PRETTY NERVOUS !"
459 FORC=1TO3000:NEXTC
465 PRINT"O.K. PART MY FLAPS AND POKE OUT YOUR"
466 PRINT"TONGUE."
467 FORC=1TO3000:NEXTC
468 PRINT"THE FLAPS ARE CALLED 'LABIA MINOR' AND"
469 PRINT"'LABIA MAJOR'.JUST BELOW THE 'HYMEN' IS"
470 FORC=1TO2000:NEXTC
471 PRINT"THE 'CLITORIS'.I LIKE IT THERE"
472 FORC=1TO2000:NEXTC
473 PRINT"YOU CAN USE THESE TERMS TO IMPRESS A"
474 PRINT"GIRL WHEN GIVING HER HEAD."
475 FORC=1TO3000:NEXTC
476 PRINT"BECAUSE I'M A NICE CLEAN GIRL, I SMELL"
477 PRINT"LIKE FRESH FISH. SOME UGLY BUSH PIGS "
478 FORC=1TO3000:NEXTC
479 PRINT"STINK LIKE SHIT SO GIVE EM A MISS !"
480 FORC=1TO2000:NEXTC
481 PRINT"THANKS FOR THE GOOD HEAD ! I'M FULL ON"
482 PRINT"WORKED UP NOW !"
483 GOTO 104
500 REM ------------------------------
510 IFB<150THENGOTO512
511 GOTO530
512 PRINT"HEY C'MON PAL ! YOU'RE PATHETIC!"
513 PRINT"GIMME A LITTLE SOMETHING ELSE FIRST."
514 FORC=1TO3000:NEXTC
515 GOTO 103
530 PRINT"I'M HANGEN FOR A BANGEN !"
531 PRINT"I WANNA FUCK YOUR BRAINS OUT !"
534 FORC=1TO3000:NEXTC
535 PRINT"TAKE OFF ALL MY CLOTHES AND"
536 PRINT"GENTLY SPREAD MY LEGS !!!"
537 FORC=1TO3000:NEXTC
538 PRINT"WHAT POSITION WOULD YOU LIKE ME TO"
539 PRINT"LAY IN "
540 FORC=1TO3000:NEXTC
541 INPUTA$
542 PRINT A$;" IS MY FAVORITE !"
543 PRINT" SLIP HER IN GOOD AND FAST !"
544 FORC=1TO3000:NEXTC
545 PRINT"PUSH IT ! HUMP HARDER !!"
546 FORC=1TO2000:NEXTC
547 PRINT"WHIP ME !  WHIP ME !"
548 FORC=1TO2000:NEXTC
549 PRINT"YES !! YES ! IT'S WONDERFUL !"
550 FORC=1TO2000:NEXTC
551 PRINT"I'M CUMMING ! I'M CUMMING !"
552 FORC=1TO4000:NEXTC
553 PRINT"CONGRATULATIONS. NOW YOU CAN SCREW"
554 PRINT"A GIRL IN STYLE !! "
555 FORC=1TO3000:NEXTC:PRINT
556 PRINT"            [202][195][201] THE END [213][195][203]"
560 CLR:FORC=0TO2000:NEXT:RUN
599 REM ------------------------------
600 REM -----------------------------
610 IFB>5ANDB<50THENGOTO650
612 IFB>55ANDB<100THENGOTO660
614 IFB>105ANDB<150THENGOTO670
616 IFB>155THENGOTO680
617 GOTO 110
650 PRINT"A KISS WOULD BE NICE.":LETB=0
651 GOTO104
660 PRINT"CAN I FEEL YOUR BIG PRICK ?"
661 GETC$:IFC$=""THEN661
662 IFC$="N"THENLETB=50:GOTO104
663 GOTO300
670 PRINT"I'D REALLY LIKE A HEADJOB.":LETB=100
671 FORC=1TO2000:NEXTC
672 GOTO104
680 PRINT"I'M HANGEN FOR A BANGEN !!":LETB=150
681 GOTO 104
700 PRINT"I'VE GOT A WET HOT ";A$
702 FORC=1TO2000:NEXTC
703 GOTO 103
710 PRINT"IKON VISUAL SAY FAGGOTS SHOULD BE SHOT"
711 FORC=1TO2000:NEXTC
712 GOTO103
720 PRINT"I'M HOPING TO SUCK YOUR ";A$
721 PRINT"A LITTLE LATER ON."
722 FORC=1TO2000:NEXTC
723 GOTO 103
724 GOTO300
730 PRINT"MY ";A$;" ARE SOFT & SUCCULENT."
731 FORC=1TO2000:NEXTC
732 GOTO103
740 PRINT"YOU LOOK LIKE SHIT !"
741 FORC=1TO2000:NEXTC
742 GOTO 103
745 PRINT"IKON VISUAL SAY PROSTITUTES SPREAD AIDS"
746 FORC=1TO2000:NEXTC
747 GOTO 103
750 PRINT"I WANT ONE JUST LIKE YOU !"
751 FORC=1TO2000:NEXTC
752 GOTO 103
755 PRINT"YOUR FUCKEN UGLY !!"
756 FORC=1TO2000:NEXTC
757 GOTO 103
760 PRINT"THOSE GUYS TURN ME ON !!"
761 FORC=1TO2000:NEXTC
762 GOTO 103
765 PRINT"I WOULD LIKE YOU TO DO THAT!"
770 FOR C=1TO2000:NEXTC
771 GOTO 103
772 PRINT"I WOULD LOVE TO DO THAT !"
773 FORC=1TO2000:NEXTC
779 GOTO 103
780 PRINT"WHIP MY BUTT AND WHIP IT GOOD!"
781 FORC=1TO2000:NEXT:GOTO103
50000 SYS 57812 FI$,8,0:POKE780,0:POKE782,(INT(AD/256))
50010 POKE781,(AD-PEEK(782)*256):SYS65493:RETURN
60000 OPEN15,8,15,"S:FORESTS":CLOSE15:SAVE"FORESTS",8,1